home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / flilib.zip / FLISRC.ZIP / ZEROWORD.ASM < prev   
Assembly Source File  |  1989-11-11  |  572b  |  38 lines
  1.  
  2.  
  3. _TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  4. _TEXT    ENDS
  5. _DATA    SEGMENT  WORD PUBLIC 'DATA'
  6. _DATA    ENDS
  7. CONST    SEGMENT  WORD PUBLIC 'CONST'
  8. CONST    ENDS
  9. _BSS    SEGMENT  WORD PUBLIC 'BSS'
  10. _BSS    ENDS
  11. DGROUP    GROUP    CONST,    _BSS,    _DATA
  12.     ASSUME  CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
  13. _TEXT      SEGMENT
  14.  
  15. ;i86_wzero(soffset, ssegment, words)
  16.     PUBLIC    _i86_wzero
  17. _i86_wzero    PROC far
  18.     push    bp
  19.     mov    bp,sp
  20.     push es
  21.     push di
  22.     push cx
  23.  
  24.     les di,[bp+6]
  25.     mov cx,[bp+10]
  26.     xor ax,ax
  27.     rep stosw
  28.  
  29.     pop cx
  30.     pop di
  31.     pop es
  32.     pop    bp
  33.     ret    
  34. _i86_wzero    ENDP
  35.  
  36. _TEXT    ENDS
  37. END
  38.